home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 October / EnigmA AMIGA RUN 31 (1998)(G.R. Edizioni)(IT)[!][issue 1998-10].iso / earkit / chat / amirc_20 / rexx / echo.amirx < prev    next >
Text File  |  1998-09-22  |  1KB  |  47 lines
  1. /* ECHOdemo.amirx by Ariel Magnum
  2. ** Display a demonstartion of AmIRC Echo command
  3. ** With styles,colours etc.
  4. ** Demonstrates using of styles and cecho functions
  5. */
  6. Options Results  /* Enable rc/result return codes */
  7. signal on syntax /* Enables syntax checking       */
  8. prefix='ECHODemo'  /* Prefix for echos              */
  9. colour=3         /* Colour fo echos               */
  10.  
  11. /* Begin */
  12. cecho(bold("Bold"))
  13. cecho(underline("Underline"))
  14. cecho(inverse("Inverse"))
  15. cecho(underline(bold("Bold+Underline")))
  16.  
  17. do colour=0 to 5
  18.     cecho("This is colour" colour)
  19. end
  20.  
  21. prefix="End"
  22. cecho(underline("Bye") bold("Bye"))
  23.  
  24.  
  25. /* End   */
  26. exit
  27.  
  28. /* Shared Functions */
  29. bold:      /* This function bolds text*/
  30. return '02'x||arg(1)||'02'x
  31.  
  32. underline: /* This function underlines text*/
  33. return '1F'x||arg(1)||'1F'x
  34.  
  35. inverse:   /* This function inverses text*/
  36. return '16'x||arg(1)||'16'x
  37.  
  38. cecho:     /* This function echo's text to listview*/
  39. "ECHO P="d2c(27)"b«"prefix"» C="colour arg(1)
  40. return 0
  41.  
  42. syntax:   /* This function returns where you made a syntax error */
  43. prefix="Syntax"
  44. cecho("Command on line" SIGL "returned" RC ":" errortext(rc) sourceline(SIGL))
  45. exit
  46.  
  47.